یکی از پر طرفدارترین تم های ویندوز ایکس پی تم Zune می باشد که نسخه کامل آن را می توانید از این سایت دانلود کنید. تم های تاریک طرفداران بسیاری دارند به دلیل اینکه چشم را کمتر اذیت می کنند و مانیتور استراحت بیشتری دارد. تم Zune با رنگ بندی خاص خود آرامش خاصی را به کاربر می بخشد همچنین شما می توانید جزئیات رنگ ها را به دلخواه انتخاب کنید و ترکیب زیبایی را بوجود آورید. این تم که آخرین ورژن Zune می باشد کاملا با ویندوز سازگار بوده و بسیار سبک می باشد پس آن را از دست ندهید و حتما امتحان کنید. برای کارایی بهتر تم بهتر است آن را در مسیر "WINDOWS\Resources\Themes" کپی کنید.

 

Public Sub Window_OnLoad() 'Set LoadChar = AgentControl.Characters.Load ("Merlin", _ ' "C:Windowsmsagentcharsmerlin.acs") 'Change to proper root depending on OS. Set LoadChar = AgentControl.Characters.Load ("Merlin") On Error Resume Next Set Merlin = AgentControl.Characters ("Merlin") Merlin.Show Merlin.Speak ("jomleye shoma") Merlin.MoveTo 100,500 Merlin.GestureRight Merlin.Speak ("jomleye shoma") Merlin.MoveTo 500,10 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 200,10 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 300,300 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 200,450 Merlin.Speak ("adrese maile shoma") Merlin.MoveTo 500,10 Merlin.Speak ("adrese webloge shoma") End Sub Sub AgentControl_DragStart (ByVal ID, ByVal Button, ByVal Shift,ByVal x, ByVal y) Merlin.Play ("Alert") Merlin.Speak ("Pau=800vol=65535darde eshgh hamishe marashekast dad ") End Sub Sub AgentControl_DragCOmplete (ByVal ID, ByVal Button, ByVal Shift,ByVal x, ByVal y) Merlin.Play ("RestPose") End Sub